clear 










.WARNING.......
.ANY ATTEMPT to CHANGE 
.THIS PROGRAM WILL CAUSE
.THE GRAPHICS to 


.     SELF-DESTRUCT











clear ;CY=8
.THIS PROGRAM WILL BE 
.READY TO COMPUTE YOUR
.BIO-RYTHYMS IN 3 MINS.
&(10)=0
&(9)=0;&(10)=212;&(0)=116;&(1)=8;&(2)=116;&(3)=8
>  10 :return ;clear ;NT=0;&(9)=60;BC=249;FC=116
  30 CY=12;CX=-30;print "BIO-RYTHYMS
  40 CY=-36;print "   REVISED 1/80 D. WALTER"
  50 NT=10;for A=0to 86;MU=@(A);next A;NT=1;goto 200
 100 for A=1to 3000;NT=1
 110 if KP goto 200
 130 next A;BC=1;goto 100
 190 CY=0;input "MONTH"M,"DAY"D,"YEAR"Y
 192 if D>0if D<32if M>0if M<13return 
 200 clear ;&(9)=60;BC=250;FC=7
 210 CY=24;print "  WHAT IS YOUR BIRTHDATE"
 220 print "MONTH,DAY,YEAR,EX-6/10/62"
 240 CY=0;gosub 190
 250 U=D;V=M;W=Y;BC=176
 260 CY=24;print "WHAT IS TODAY'S DATE     "
 270 box -60,-8,41,28,2;CY=0;gosub 190
 280 for A=0to 86;NT=3;MU=A;next A
 290 Q=Y-W;K=V;L=M
 295 if V>M K=M;if V>M L=V
 300 T=Qmul 365+Qdiv 4
 302 if K=Lgoto 360
 305 if V>M T=-T
 310 for R=Kto L-1
 320 T=T+30
 330 if R#2if R#4if R#6if R#9if R#11 T=T+1
 340 if R=2 T=T-2
 350 next R
 360 T=ABS(T)-(U-D)
 370 P=Tdiv 23;P=RM
 380 E=Tdiv 28;E=RM+24
 390 I=Tdiv 33;I=RM+53
 400 clear ;FC=1;BC=125;NT=0;print 
 415 print "YOU HAVE LIVED",#6,T," DAYS.
 420 CY=22
 430 print "PHYSICAL INDEX:",#9,@(P)
 440 CY=11;X=@(P);gosub 1000
 450 CY=-2
 460 print "EMOTIONAL INDEX:",#8,@(E)
 470 CY=-12;X=@(E);gosub 1000
 490 CY=-26;print "INTELLECTUAL INDEX:",#5,@(I)
 500 CY=-36;X=@(I);gosub 1000
 510 for Z=0to 3000;next Z;clear 
 525 CY=0;CX=-70;&(9)=-1;FC=117;BC=240
 530 print "CYCLES: THE next 25 DAYS"
 535 for A=0to 1000;next A;clear ;&(10)=0;BC=0;FC=118
 537 &(0)=179;&(1)=179;&(2)=FC;&(3)=FC;gosub 1100;&(9)=199;for A=0to 180;&(10)=A;next A;NT=3
 540 CX=-75;CY=@(P);print "P",;gosub 750
 550 CX=-68;CY=@(E);print "E",;gosub 750
 560 CX=-61;CY=@(I);print "I",;gosub 750
 610 line -72,@(P),0;A=P;B=23;C=0
 630 gosub 800
 640 line -65,@(E),0;A=E;B=52;C=24
 660 gosub 800
 670 line -58,@(I),0;A=I;B=86;C=53
 690 gosub 800
 695 NT=3;goto 100
 750 box CX-7,CY,7,9,3
 770 return 
 800 for X=-52to 75step 5
 810 &(17)=255
 816 &(22)=15;&(16)=72-@(A)
 820 line X,@(A),1
 830 A=A+1;if A=B A=C
 840 next X;&(22)=0;return 
1000 if X>13print "HIGH"
1010 if X>=-13if X<13print " CRITICAL!!!";box -43,CY+8,75,11,3
1020 if X<-13print "LOW"
1030 return 
1100 box -50,0,1,80,1;U=0;box 15,0,129,1,1
1105 L=0
1110 for X=-50to 75step 5;box X,0,1,3,1
1120 U=U+1
1125 if U=7gosub 1150
1130 next X;return 
1150 box X,0,1,10,1;L=L+7;CX=X-3;CY=-40;print #1,L,;U=0
1160 U=0;return 
>@(0)=0;@(1)=10;@(2)=19;@(3)=26;@(4)=32;@(5)=35;@(6)=36;@(7)=34;@(8)=29;@(9)=23;
@(10)=14;@(11)=5;@(12)=-5;@(13)=-14;@(14)=-23;@(15)=-29;@(16)=-34;@(17)=-36;@(18)=-35;@(19)=-32;
@(20)=-26;@(21)=-19;@(22)=-10;@(23)=0;@(24)=0;@(25)=8;@(26)=16;@(27)=22;@(28)=28;@(29)=32;
@(30)=35;@(31)=36;@(32)=35;@(33)=32;@(34)=28;@(35)=22;@(36)=16;@(37)=8;@(38)=0;@(39)=-8;
@(40)=-16;@(41)=-22;@(42)=-28;@(43)=-32;@(44)=-35;@(45)=-36;@(46)=-35;@(47)=-32;@(48)=-28;@(49)=-22;
@(50)=-16;@(51)=-8;@(52)=0;@(53)=0;@(54)=7;@(55)=13;@(56)=19;@(57)=25;@(58)=29;@(59)=33;
@(60)=35;@(61)=36;@(62)=36;@(63)=34;@(64)=31;@(65)=27;@(66)=22;@(67)=16;@(68)=10;@(69)=3;
@(70)=-3;@(71)=-10;@(72)=-16;@(73)=-22;@(74)=-27;@(75)=-31;@(76)=-34;@(77)=-36;@(78)=-36;@(79)=-35;
@(80)=-33;@(81)=-29;@(82)=-25;@(83)=-19;@(84)=-13;@(85)=-7;@(86)=0;&(10)=180;&(9)=-1;clear 
.INSTRUCTIONS:


.PRESS 'GO' AFTER EACH
.NUMBER ENTRY


.PRESS 'clear ' FOR A NEW
.BIO-RYTHYM.
clear ;run 
>